home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
PANSI.EX1
< prev
next >
Wrap
Text File
|
1992-08-09
|
520b
|
29 lines
'PANSI2.BAS
'Prints an ANSI file to the screen.
'Set Filename$ to the pathname of an ANSI file.
'Uses PANSI.BAS
DEFINT A-Z
'$INCLUDE: 'pansi.bi'
FileName$ = "pansi.doc"
SCREEN 0
WIDTH 80, 25
LOCATE , , 1
Init
SetWindow 1, 1, 80, 25
ClearScreen
CursorControl 1
OPEN FileName$ FOR BINARY AS #1
B$ = STRING$(10000, 0) 'uses a 10,000 byte buffer
FOR A = 1 TO LOF(1) \ 10000
GET #1, , B$
PrintString B$
NEXT
B$ = STRING$(LOF(1) MOD 10000, 0)
GET #1, , B$
PrintString B$
CLOSE